      SUBROUTINE GPINIT
C
      IMPLICIT REAL*8(A-H,O-Z)
C
      RETURN
C
      END
